﻿''' <summary>
''' 用户类，对应库中表S_User
''' </summary>
Public Class ClsUser
    '表名 S_User 的类
    'UserId,UserName,UserPassword

    Private mUserId As Integer
    Private mUserName As String
    Private mUserPassword As String
    Private mUserIfAdmin As Boolean


    Public Property UserId As Integer
        Get
            Return mUserId
        End Get
        Set(value As Integer)
            mUserId = value
        End Set
    End Property

    Public Property UserName As String
        Get
            Return mUserName
        End Get
        Set(value As String)
            mUserName = value
        End Set
    End Property

    Public Property UserPassword As String
        Get
            Return mUserPassword
        End Get
        Set(value As String)
            mUserPassword = value
        End Set
    End Property

    Public Property UserIfAdmin As Boolean
        Get
            Return mUserIfAdmin
        End Get
        Set(value As Boolean)
            mUserIfAdmin = value
        End Set
    End Property
End Class
